home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib03.dsk
/
YOUR APPLE'S A BRAIN.bas
< prev
Wrap
BASIC Source File
|
2023-02-26
|
668b
|
20 lines
5 PRINT CHR$(4);"BLOAD TONE GEN"
10 DIM A(41)
20 FOR I = 0 TO 41
30 READ A(I)
40 NEXT I
50 DATA 255,242,228,215,203,192,181,171,161,152,144,136,128,121,114,108,102,96,91,85,81,76,72,68,64,57,54,51,48,45,43,40,38,36,34,32,30,29,27,25,24,
60 I = INT(41 * RND(1))
70 J = INT(7 * RND(1))
71 IF J = 1 THEN J = 255: GOTO 80
72 IF J = 2 THEN J = 128: GOTO 80
73 IF J = 3 THEN J = 64: GOTO 80
74 IF J = 4 THEN J = 32: GOTO 80
75 IF J = 5 THEN J = 16: GOTO 80
76 IF J = 6 THEN J = 8: GOTO 80
80 POKE 768,A(I): POKE 769,J: CALL 770
81 A = RND(1): IF A >.5 THEN A = -A
82 I2 = I +A *( RND(1)) *11
83 I = ABS(I2)
85 FOR P = 1 TO 100: NEXT P
90 GOTO 70